unit DrzavaFrm;

interface

uses
  Windows, Classes,
  Controls, StdCtrls, ExtCtrls, ActnList, StdActns,
  DB, DBClient, alBaseDataSet, MConnect,
  Forms, SifrantFrm,
  PoslovanjeSrv_TLB, 
  cxClasses, cxControls, cxGraphics, cxContainer, cxStyles, cxEditRepositoryItems,
  cxCustomData, cxData, cxFilter,
  cxEdit, cxDBEdit, cxTextEdit, cxDBData,
  cxGrid, cxGridLevel, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridBandedTableView, cxGridDBBandedTableView, cxDBEditRepository,
  cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, ImgList, cxDataStorage, kdbinfo, kdbstruc;

type
  TfrmDrzava = class(TfrmSifrant)
    lblValuta: TLabel;
    lkpcbValuta: TcxDBLookupComboBox;
    rpstMainValutaOznakaEdit: TcxEditRepositoryLookupComboBoxItem;
    scnValuta: TSharedConnection;
    dtsrcValuta: TDataSource;
    cdsValuta: TBaseDataSet;
    grdtvMainValutaOznaka: TcxGridDBBandedColumn;
    rpstMainValutaOznaka: TcxEditRepositoryTextItem;
  private
    { Private declarations }
  protected
    procedure Deinitialize; override;
    procedure DoDBRefresh; override;
    procedure Initialize; override;
  public
    { Public declarations }
  end;

var
  frmDrzava: TfrmDrzava;

implementation

uses
  MainFrm;

{$R *.dfm}

{ TfrmDrzava }

procedure TfrmDrzava.Deinitialize;
begin
  cdsValuta.Close;
  inherited;
end;

procedure TfrmDrzava.DoDBRefresh;
begin
  inherited;
  cdsValuta.Refresh;
end;

procedure TfrmDrzava.Initialize;
begin
  inherited;
  cdsValuta.Open;
end;

end.
